preds_reverted <- ((pr.nn$net.result + 1) / 2) * (max(abs(df$Price)) - min(abs(df$Price))) + min(abs(df$Price))
closing_price_orig <- df[1470:2099, 2]
plot_df_test <- data.frame(test$df.Date, preds_reverted, closing_price_orig)
plot_ly(data=plot_df_test, x = ~test.df.Date) %>%
add_trace(type = 'scatter', mode = 'lines', y=~preds_reverted,
name="Predicted Closing Price", line = list(color = 'blue')) %>%
add_trace(type = 'scatter', mode = 'lines', y=~closing_price_orig,
name="Original Closing Price",line = list(color = 'orange')) %>%
layout(title="Crude Oil Futures: Predicted vs Original (Test Set)",
yaxis=list(title=("Price ($)")),
xaxis=list(title=("Date"))) %>%
layout(hovermode = "x") %>%
layout(paper_bgcolor = "black",
plot_bgcolor = "black",
font = list(color = "white"),
yaxis = list(linecolor = "#6b6b6b",
zerolinecolor = "#6b6b6b",
gridcolor= "#444444"),
xaxis = list(linecolor = "#6b6b6b",
zerolinecolor = "#6b6b6b",
gridcolor= "#444444"))